home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / enclos.fix < prev    next >
Text File  |  1995-04-22  |  2KB  |  16 lines
  1. \ 80 ANDY BIGGS' NEW ENCLOSE DLM10OCT82 CODE (ENCLOSE)                           2 # LDA, SETUP JSR, TXA, SEC,              
  2.  8 # SBC, TAX, SEC 1+ STY, BOT 1+ STY,   DEY, N 3 + DEC, BOT 1+ DEC,             BEGIN, INY, 0=                             
  3.    IF, N 3 + INC, BOT 1+ INC, THEN,        N 2+ )Y LDA, N CMP, 0= NOT            UNTIL,                                     
  4.  BOT 4 + STY, BOT 1+ LDA, BOT 5 + STA,   BEGIN, N 2+ )Y LDA, 0=                    IF, SEC STY, BOT STY, BOT 1+ LDA,        
  5.        SEC 1+ STA, TYA, BOT 4 + CMP, 0=        IF, BOT 1+ LDA, BOT 5 + CMP, 0=             IF, SEC INC, 0=                  
  6.              IF, SEC 1+ INC, THEN,             THEN, THEN, NEXT JMP, \ EXIT        THEN, PHA, SEC STY, BOT 1+ LDA,          
  7.    SEC 1+ STA, INY,                        0= IF, BOT 1+ INC, N 3 + INC, THEN,     PLA, N CMP, 0=                           
  8.  UNTIL, BOT STY, NEXT JMP,              END-CODE                                -->                                         
  9. \ 81 PATCH OLD ENCLOSE       DLM10OCT82                                         \ SET CFA OF ENCLOSE TO POINT TO            
  10. \ (ENCLOSE).  THIS WILL MAKE ALL WORDS  \ THAT CALL ENCLOSE CALL (ENCLOSE)      \ INSTEAD.                                  
  11.                                          NEW-TOP ' (ENCLOSE) ' ENCLOSE CFA ! ;S                                             
  12. THIS CORRECTED VERSION OF ENCLOSE WAS   WRITTEN BY ANDY BIGGS AND APPEARED IN   FORTH DIMENSIONS, VOLUME 3, NUMBER 6.       
  13. THIS VERSION WILL WORK WITH ANY LENGTH  BLOCK, INCLUDING THOSE WITH 256 OR      MORE BYTE LENGTH.  THIS FIXES THE           
  14. ERROR IN THE ORIGINAL FIG VERSION OF    ENCLOSE WHICH WOULD LOCK UP IF A BLOCK  CONTAINED 256 OR MORE CONSECUTIVE           
  15. SPACES.                                                                         DANIEL L. MOORE, OCTOBER 10, 1982           
  16.